CREATE TABLE [dbo].[TCFINA_BANC]
(
[CO_EMPR] [dbo].[TD_VC_002] NOT NULL,
[CO_TIPO_FINA] [dbo].[TD_VC_003] NOT NULL,
[CO_BANC] [dbo].[TD_VC_003] NOT NULL,
[NU_COMP_FINA] [dbo].[TD_VC_008] NOT NULL,
[CO_MONE] [dbo].[TD_VC_003] NULL,
[FE_OPER] [dbo].[TD_DT_001] NULL,
[FA_TIPO_CAMB] [dbo].[TD_NU_015_006] NULL,
[FA_CAMB_EXTR] [dbo].[TD_NU_015_006] NULL,
[IM_FINA] [dbo].[TD_NU_016_004] NULL CONSTRAINT [DF__TCFINA_BA__IM_FI__531856C7] DEFAULT ((0)),
[NU_REFE] [dbo].[TD_VC_020] NULL,
[FE_VALI] [dbo].[TD_DT_001] NULL,
[NO_BENE] [dbo].[TD_VC_050] NULL,
[NU_FINA] [dbo].[TD_VC_020] NULL,
[TI_DOCU_BANC] [dbo].[TD_VC_003] NULL,
[NU_DOCU_BANC] [dbo].[TD_VC_020] NULL,
[NU_CNTA_BANC] [dbo].[TD_VC_020] NULL,
[AA_BNCO] [dbo].[TD_VC_004] NULL,
[MM_BNCO] [dbo].[TD_VC_002] NULL,
[NU_COMP_BANC] [dbo].[TD_VC_008] NULL,
[FE_ABON] [dbo].[TD_DT_001] NULL,
[FE_VENC] [dbo].[TD_DT_001] NULL,
[DE_GLOS] [dbo].[TD_VC_200] NULL,
[TI_SITU] [dbo].[TD_VC_003] NULL,
[NU_DIAS_FINA] [dbo].[TD_IN_001] NULL CONSTRAINT [DF__TCFINA_BA__NU_DI__540C7B00] DEFAULT ((0)),
[ST_LIBO] [dbo].[TD_VC_001_SINO] NULL CONSTRAINT [DF__TCFINA_BA__ST_LI__55009F39] DEFAULT ('N'),
[PO_INTE] [dbo].[TD_NU_009_004] NULL CONSTRAINT [DF__TCFINA_BA__PO_IN__56E8E7AB] DEFAULT ((0)),
[PO_FINA] [dbo].[TD_NU_009_004] NULL CONSTRAINT [DF__TCFINA_BA__PO_FI__57DD0BE4] DEFAULT ((0)),
[PO_EXCE] [dbo].[TD_NU_009_004] NULL CONSTRAINT [DF__TCFINA_BA__PO_EX__58D1301D] DEFAULT ((0)),
[PO_FINA_TOTA] [dbo].[TD_NU_009_004] NULL CONSTRAINT [DF__TCFINA_BA__PO_FI__59C55456] DEFAULT ((0)),
[CO_USUA_CREA] [dbo].[TD_VC_008_USUA] NULL CONSTRAINT [DF__TCFINA_BA__CO_US__5AB9788F] DEFAULT (suser_sname()),
[FE_USUA_CREA] [dbo].[TD_DT_001_SIST] NULL CONSTRAINT [DF__TCFINA_BA__FE_US__5BAD9CC8] DEFAULT (getdate()),
[CO_USUA_MODI] [dbo].[TD_VC_008_USUA] NULL CONSTRAINT [DF__TCFINA_BA__CO_US__5CA1C101] DEFAULT (suser_sname()),
[FE_USUA_MODI] [dbo].[TD_DT_001_SIST] NULL CONSTRAINT [DF__TCFINA_BA__FE_US__5D95E53A] DEFAULT (getdate())
) ON [PRIMARY]
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS OFF
GO
CREATE Trigger [dbo].[TU_TCFINA_BANC_U01] On [dbo].[TCFINA_BANC]    
For Update    
/*---------------------------------------------------------*/    
/*---- Empresa              : OFISIS S.A.              ----*/    
/*---- Cliente              : OFISIS S.A.              ----*/    
/*---- Sistema              : OFITESO                  ----*/    
/*---- M½dulo               : TESORERIA                ----*/    
/*---- Programa             : FINACIAMIENTO BANCARIOS  ----*/    
/*---- Script               : TRIGGERS_TCFINA_BANC.SQL ----*/    
/*---- Nombre TR            : TU_TCFINA_BANC_U01       ----*/    
/*---- Desarrollado por     : Carlos Marquez E.        ----*/    
/*---- Fecha Creaci½n       : 01/02/2005               ----*/    
/*---- Base de Datos        : SQL                      ----*/    
/*---- Versi½n              : 8.0                      ----*/    
/*---- Invoca a SP          :                          ----*/    
/*---------------------------------------------------------*/    
/*---- Modificado 1 por     :                          ----*/    
/*---- Fecha Modificaci½n   :                          ----*/        
/*---- Detalle Modificacicn :                          ----*/      
/*---------------------------------------------------------*/    
/*---- Comentarios: Genera la Cta x Pagar en la TMDOCU_PROV----*/    
/*----                                                 ----*/    
/*---------------------------------------------------------*/    
/*---- Se ejecuta con el update de la Tabla            ----*/    
/*---- DROP Trigger TU_TCFINA_BANC_U01 ----*/    
/*---- alter table [dbo].[TCFINA_BANC] disable trigger [TU_TCFINA_BANC_U01]----*/    
/*---------------------------------------------------------*/    
As    
If Update(TI_SITU)    
Begin    
  Declare     
 @CSCO_EMPR  TD_VC_002,    
 @CSCO_BANC  TD_VC_003,    
 @CSCO_TIPO_FINA TD_VC_003,    
 @CSNU_COMP_FINA TD_VC_008,    
 @CSCO_MONE  TD_VC_003,    
 @CDFE_OPER  TD_DT_001,    
 @CNFA_TIPO_CAMB TD_NU_015_006,    
 @CNFA_CAMB_EXTR TD_NU_015_006,    
 @CNIM_FINA  TD_NU_016_004,    
 @CSNU_REFE  TD_VC_020,    
 @CDFE_VALI  TD_DT_001,    
 @CSTI_DOCU_BANC TD_VC_003,    
 @CSNU_DOCU_BANC TD_VC_020,    
 @CSNO_BENE  TD_VC_050,    
 @CSNU_FINA  TD_VC_020,    
 @CSNU_CNTA_BANC TD_VC_020,    
 @CSAA_BNCO  TD_VC_004,    
 @CSMM_BNCO  TD_VC_002,    
 @CSNU_COMP_BANC TD_VC_008,    
 @CDFE_ABON  TD_DT_001,    
 @CDFE_VENC  TD_DT_001_SIST,    
 @CSDE_GLOS  TD_VC_100,    
 @CSTI_SITU  TD_VC_003,    
 @CNNU_DIAS_FINA TD_IN_001,    
 @CSST_LIBO  TD_VC_001,    
 @CNPO_INTE  TD_NU_009_004,    
 @CNPO_FINA  TD_NU_009_004,    
 @CNPO_EXCE  TD_NU_009_004,    
 @CSCO_USUA_MODI TD_VC_008,    
 @CDFE_USUA_MODI TD_DT_001,    
    
    
 @VSST_GENE_CXPA TD_VC_001,    
 @VSST_DOCU_BANC TD_VC_001,    
 @VSST_DOCU_CLIE TD_VC_001,    
 @VSST_DOCU_PROV TD_VC_001,    
    
 @VSCO_PROV  TD_VC_020,    
 @VSCO_TIPO_DOCU TD_VC_003,    
 @VSNU_DOCU_PROV TD_VC_020,    
    
 @VSCO_TIPO_OPER TD_VC_003,    
 @VSCO_TIPO_OPEG TD_VC_003,    
 @VSCO_COND_CONT TD_VC_003,    
    
 @VSCO_MONE_CRED TD_VC_003,  
 @VDFE_EMIS   TD_DT_001,  
 @VDFE_VCTO   TD_DT_001  
    

	Declare CT_TCFINA_BANC_U01_1 Cursor    
	For    
	Select   CO_EMPR,  CO_BANC,  CO_TIPO_FINA,  NU_COMP_FINA,  CO_MONE,    
	FE_OPER, FA_TIPO_CAMB,  FA_CAMB_EXTR,  IM_FINA,  NU_REFE,    
	FE_VALI,  TI_DOCU_BANC,  NU_DOCU_BANC,  NO_BENE,  NU_FINA,    
	NU_CNTA_BANC,  AA_BNCO,  MM_BNCO,  NU_COMP_BANC,  FE_ABON,    
	FE_VENC,  DE_GLOS,  TI_SITU,  NU_DIAS_FINA,  ST_LIBO,    
	PO_INTE,  PO_FINA,  PO_EXCE,  CO_USUA_MODI,  FE_USUA_MODI    
	From inserted    
	
	Open  CT_TCFINA_BANC_U01_1    
	Fetch CT_TCFINA_BANC_U01_1 Into    
	@CSCO_EMPR,  @CSCO_BANC,  @CSCO_TIPO_FINA,  @CSNU_COMP_FINA,  @CSCO_MONE,    
	@CDFE_OPER, @CNFA_TIPO_CAMB,  @CNFA_CAMB_EXTR,  @CNIM_FINA,  @CSNU_REFE,    
	@CDFE_VALI,  @CSTI_DOCU_BANC,  @CSNU_DOCU_BANC,  @CSNO_BENE,  @CSNU_FINA,    
	@CSNU_CNTA_BANC,  @CSAA_BNCO,  @CSMM_BNCO,  @CSNU_COMP_BANC,  @CDFE_ABON,    
	@CDFE_VENC,  @CSDE_GLOS,  @CSTI_SITU,  @CNNU_DIAS_FINA,  @CSST_LIBO,    
	@CNPO_INTE,  @CNPO_FINA,  @CNPO_EXCE,  @CSCO_USUA_MODI,  @CDFE_USUA_MODI    
	
	Select     
		@VSCO_TIPO_OPER = CO_TIPO_OPER,    
		@VSCO_TIPO_OPEG = CO_TIPO_OPEG,    
		@VSCO_COND_CONT = CO_COND_CONT    
	From  TMPARA_TESO    
	Where CO_EMPR = @CSCO_EMPR      
	
	While @@Fetch_Status = 0    
	Begin    
		If  @@Fetch_Status < 0    
		Begin    
			Close CT_TCFINA_BANC_U01_1    
			Deallocate CT_TCFINA_BANC_U01_1    
		End    

		--- Jalamos el Conf. Tipo de Cliente ---  
		Select  @VSST_GENE_CXPA = ST_GENE_CXPA,    
				@VSST_DOCU_BANC = ST_DOCU_BANC,    
				@VSST_DOCU_CLIE = ST_DOCU_CLIE,    
				@VSST_DOCU_PROV = ST_DOCU_PROV    
		From  TTTIPO_FINA    
		Where CO_TIPO_FINA = @CSCO_TIPO_FINA    

		--- Jalamos el codigo de Banco, (Codigo de Proveedor)    
		Select @VSCO_PROV = CO_PROV    
		From  TDBANC_FINA    
		Where CO_EMPR = @CSCO_EMPR    
		And CO_BANC = @CSCO_BANC    
		 
		--- Si se encuentra aprobado    
		If  @CSTI_SITU = 'APR'    
		Begin    
		
		--- Verfica si genera Ctas por Pagar    
		If @VSST_GENE_CXPA = 'S'    
		Begin    
			    
			If @VSST_DOCU_BANC = 'S'    
			Begin     
				Select	@VSCO_TIPO_DOCU = @CSTI_DOCU_BANC,    
						@VSNU_DOCU_PROV = @CSNU_DOCU_BANC,  
						@VDFE_EMIS = @CDFE_OPER,  
						@VDFE_VCTO = @CDFE_VALI  
			End    
			Else    
			Begin     
				Select	@VSCO_TIPO_DOCU = @CSCO_TIPO_FINA,    
						@VSNU_DOCU_PROV = @CSNU_FINA,  
						@VDFE_EMIS = @CDFE_ABON,  
						@VDFE_VCTO = @CDFE_VENC  
			End    
		
		    
			--- Jalamos el codigo de Moneda del la Conf Finan x Banco, si es Nulla  la de la Solic. Aprobada de Financiamiento    
			Select @VSCO_MONE_CRED = IsNull( @CSCO_MONE, CO_MONE_CRED)    
			From  TTTIFN_BANC    
			Where CO_EMPR = @CSCO_EMPR  And CO_BANC = @CSCO_BANC And CO_TIPO_FINA = @CSCO_TIPO_FINA    
		    
			If Exists ( Select NU_DOCU_PROV From TMDOCU_PROV Where CO_EMPR = @CSCO_EMPR And CO_PROV = @VSCO_PROV  And CO_TIPO_DOCU = @CSCO_TIPO_FINA And NU_DOCU_PROV = @CSNU_FINA)        
				Update TMDOCU_PROV    
				Set FE_VENC = @CDFE_VENC, FE_EMIS = @CDFE_ABON    
				Where CO_EMPR = @CSCO_EMPR And CO_PROV = @VSCO_PROV  And CO_TIPO_DOCU = @CSCO_TIPO_FINA And NU_DOCU_PROV = @CSNU_FINA     
			
			Else    
				Insert Into TMDOCU_PROV (    
				CO_EMPR,   CO_PROV,    CO_TIPO_DOCU,   NU_DOCU_PROV,  CO_TIPO_OPER,        
				CO_COND_PAGO,    CO_UNID_CONC,   FE_VENC,    FE_EMIS,     
				FE_PROG_PAGO,     
				FA_TIPO_CAMB,    CO_MONE,     IM_BRUT_AFEC,   IM_TOTA,   CO_ESTA_DOCU,     
				ST_CONT,    FE_REGI_COMP,   PC_DCT1,    PC_DCT2,      
				CO_USUA_CREA,   FE_USUA_CREA,   CO_USUA_MODI,   FE_USUA_MODI )        
				Values  (     
				@CSCO_EMPR,   @VSCO_PROV,    @CSCO_TIPO_FINA, @VSNU_DOCU_PROV, @VSCO_TIPO_OPEG,        
				@VSCO_COND_CONT,  '001',     @VDFE_VCTO,     @VDFE_EMIS,   
				@VDFE_VCTO,     
				@CNFA_TIPO_CAMB, @VSCO_MONE_CRED, @CNIM_FINA,     @CNIM_FINA,  'ACT',     
				'N',    @CDFE_ABON,   0,   0,      
				@CSCO_USUA_MODI, @CDFE_USUA_MODI, @CSCO_USUA_MODI,  @CDFE_USUA_MODI )        			
			
			End ---Fin Verfica si genera Ctas por Pagar    
		  
		End --- Fin Si se encuentra aprobado    

		Else If @CSTI_SITU = 'PAP'
		Begin
		
			If @VSST_GENE_CXPA = 'S'
			Begin
					
				If Exists ( Select NU_DOCU_PROV From TDPROG_PAGO Where CO_EMPR = @CSCO_EMPR And	CO_PROV = @VSCO_PROV  And	CO_TIPO_DOCU = @CSCO_TIPO_FINA And	NU_DOCU_PROV = @CSNU_FINA)				
					Delete TDPROG_PAGO
					Where CO_EMPR = @CSCO_EMPR And	CO_PROV = @VSCO_PROV  And	CO_TIPO_DOCU = @CSCO_TIPO_FINA And	NU_DOCU_PROV = @CSNU_FINA	
		
		
				If Exists ( Select NU_DOCU_PROV From TMDOCU_PROV Where CO_EMPR = @CSCO_EMPR And	CO_PROV = @VSCO_PROV  And	CO_TIPO_DOCU = @CSCO_TIPO_FINA And	NU_DOCU_PROV = @CSNU_FINA)				
					Delete TMDOCU_PROV
					Where CO_EMPR = @CSCO_EMPR And	CO_PROV = @VSCO_PROV  And	CO_TIPO_DOCU = @CSCO_TIPO_FINA And	NU_DOCU_PROV = @CSNU_FINA	
		
			End ---Fin Verfica si genera Ctas por Pagar
		
		End --- Fin Si Regresa a pendiente de Aprobar
		
		
		Fetch CT_TCFINA_BANC_U01_1 Into    
		@CSCO_EMPR,  @CSCO_BANC,  @CSCO_TIPO_FINA,  @CSNU_COMP_FINA,  @CSCO_MONE,    
		@CDFE_OPER, @CNFA_TIPO_CAMB,  @CNFA_CAMB_EXTR,  @CNIM_FINA,  @CSNU_REFE,    
		@CDFE_VALI,  @CSTI_DOCU_BANC,  @CSNU_DOCU_BANC,  @CSNO_BENE,  @CSNU_FINA,    
		@CSNU_CNTA_BANC,  @CSAA_BNCO,  @CSMM_BNCO,  @CSNU_COMP_BANC,  @CDFE_ABON,    
		@CDFE_VENC,  @CSDE_GLOS,  @CSTI_SITU,  @CNNU_DIAS_FINA,  @CSST_LIBO,    
		@CNPO_INTE,  @CNPO_FINA,  @CNPO_EXCE,  @CSCO_USUA_MODI,  @CDFE_USUA_MODI    
		
		End    
		Close CT_TCFINA_BANC_U01_1    
		Deallocate CT_TCFINA_BANC_U01_1   
	End    
/*------------------------ Fin ----------------------*/

GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS OFF
GO

CREATE   Trigger [dbo].[TU_TCFINA_BANC_U02] On [dbo].[TCFINA_BANC]
For Update
/*---------------------------------------------------------*/
/*---- Empresa              : OFISIS S.A.              ----*/
/*---- Cliente              : OFISIS S.A.              ----*/
/*---- Sistema              : OFITESO                  ----*/
/*---- M½dulo               : TESORERIA                ----*/
/*---- Programa             : FINACIAMIENTO BANCARIOS  ----*/
/*---- Script               : TRIGGERS_TCFINA_BANC.SQL ----*/
/*---- Nombre TR            : TU_TCFINA_BANC_U02       ----*/
/*---- Desarrollado por     : Carlos Marquez E.        ----*/
/*---- Fecha Creaci½n       : 09/02/2005               ----*/
/*---- Base de Datos        : SQL                      ----*/
/*---- Versi½n              : 8.0                      ----*/
/*---- Invoca a SP          :                          ----*/
/*---------------------------------------------------------*/
/*---- Modificado 1 por     :                          ----*/
/*---- Fecha Modificaci½n   :                          ----*/    
/*---- Detalle Modificacicn :                          ----*/  
/*---------------------------------------------------------*/
/*---- Comentarios: ACTUALIZA tasa (%)					----*/
/*----                                                 ----*/
/*---------------------------------------------------------*/
/*---- Se ejecuta con el update de la Tabla            ----*/
/*---- DROP Trigger TU_TCFINA_BANC_U02 ----*/
/*---- alter table [dbo].[TCFINA_BANC] disable trigger [TU_TCFINA_BANC_U02]----*/
/*---------------------------------------------------------*/
As
If Update(FE_ABON) Or Update(ST_LIBO)  Or Update(PO_INTE) 
Begin
  Declare 
	@CSCO_EMPR		TD_VC_002,
	@CSCO_BANC		TD_VC_003,
	@CSCO_TIPO_FINA	TD_VC_003,
	@CSNU_COMP_FINA	TD_VC_008,
	@CSCO_MONE		TD_VC_003,
	@CDFE_OPER		TD_DT_001,
	@CNFA_TIPO_CAMB	TD_NU_015_006,
	@CNFA_CAMB_EXTR	TD_NU_015_006,
	@CNIM_FINA		TD_NU_016_004,
	@CSNU_REFE		TD_VC_020,
	@CDFE_VALI		TD_DT_001,
	@CSTI_DOCU_BANC	TD_VC_003,
	@CSNU_DOCU_BANC	TD_VC_020,
	@CSNO_BENE		TD_VC_050,
	@CSNU_FINA		TD_VC_020,
	@CSNU_CNTA_BANC	TD_VC_020,
	@CSAA_BNCO		TD_VC_004,
	@CSMM_BNCO		TD_VC_002,
	@CSNU_COMP_BANC	TD_VC_008,
	@CDFE_ABON		TD_DT_001,
	@CDFE_VENC		TD_DT_001_SIST,
	@CSDE_GLOS		TD_VC_100,
	@CSTI_SITU		TD_VC_003,
	@CNNU_DIAS_FINA	TD_IN_001,
	@CSST_LIBO		TD_VC_001,
	@CNPO_INTE		TD_NU_009_004,
	@CNPO_FINA		TD_NU_009_004,
	@CNPO_EXCE		TD_NU_009_004,
	@CSCO_USUA_MODI	TD_VC_008,
	@CDFE_USUA_MODI	TD_DT_001,

	@CSNU_FINA_0002		TD_VC_020,

	@VNPO_FINA_TOTA		TD_NU_009_004,
	@VSCO_COND_CONT	TD_VC_003

  Declare CT_TCFINA_BANC_U02_1 Cursor
  For
  Select 	CO_EMPR, 	CO_BANC, 	CO_TIPO_FINA, 	NU_COMP_FINA, 	CO_MONE,
			FE_OPER,	FA_TIPO_CAMB, 	FA_CAMB_EXTR, 	IM_FINA, 	NU_REFE,
			FE_VALI, 	TI_DOCU_BANC, 	NU_DOCU_BANC, 	NO_BENE, 	NU_FINA,
			NU_CNTA_BANC, 	AA_BNCO, 	MM_BNCO, 	NU_COMP_BANC, 	FE_ABON,
			FE_VENC, 	DE_GLOS, 	TI_SITU, 	NU_DIAS_FINA, 	ST_LIBO,
			PO_INTE, 	PO_FINA, 	PO_EXCE, 	CO_USUA_MODI, 	FE_USUA_MODI
  From inserted


  Open  CT_TCFINA_BANC_U02_1
  Fetch CT_TCFINA_BANC_U02_1 Into
	@CSCO_EMPR, 	@CSCO_BANC, 	@CSCO_TIPO_FINA, 	@CSNU_COMP_FINA, 	@CSCO_MONE,
	@CDFE_OPER,	@CNFA_TIPO_CAMB, 	@CNFA_CAMB_EXTR, 	@CNIM_FINA, 	@CSNU_REFE,
	@CDFE_VALI, 	@CSTI_DOCU_BANC, 	@CSNU_DOCU_BANC, 	@CSNO_BENE, 	@CSNU_FINA,
	@CSNU_CNTA_BANC, 	@CSAA_BNCO, 	@CSMM_BNCO, 	@CSNU_COMP_BANC, 	@CDFE_ABON,
	@CDFE_VENC, 	@CSDE_GLOS, 	@CSTI_SITU, 	@CNNU_DIAS_FINA, 	@CSST_LIBO,
	@CNPO_INTE, 	@CNPO_FINA, 	@CNPO_EXCE, 	@CSCO_USUA_MODI, 	@CDFE_USUA_MODI



  While @@Fetch_Status = 0
  Begin
	If  @@Fetch_Status < 0
	Begin
		Close CT_TCFINA_BANC_U02_1
		Deallocate CT_TCFINA_BANC_U02_1
	End
	
	--- Si Usa Tasa Libor 
	If 	@CSST_LIBO = 'S'

		Select	@VNPO_FINA_TOTA = IsNull( ( IsNull(FA_LIB1,0) + (@CNPO_INTE)), 0)
		From 	TMLIBO
		Where	FE_LIBO = @CDFE_ABON
	Else
		Select	@VNPO_FINA_TOTA = IsNull(@CNPO_INTE,0)

	Update 	TCFINA_BANC
	Set PO_FINA_TOTA = @VNPO_FINA_TOTA,	
		CO_USUA_MODI = @CSCO_USUA_MODI,
		FE_USUA_MODI = @CDFE_USUA_MODI
	Where	CO_EMPR = @CSCO_EMPR
	And	CO_BANC = @CSCO_BANC
	And	CO_TIPO_FINA = @CSCO_TIPO_FINA
	And	NU_COMP_FINA = @CSNU_COMP_FINA
-----------------------------



	Fetch CT_TCFINA_BANC_U02_1 Into
		@CSCO_EMPR, 	@CSCO_BANC, 	@CSCO_TIPO_FINA, 	@CSNU_COMP_FINA, 	@CSCO_MONE,
		@CDFE_OPER,	@CNFA_TIPO_CAMB, 	@CNFA_CAMB_EXTR, 	@CNIM_FINA, 	@CSNU_REFE,
		@CDFE_VALI, 	@CSTI_DOCU_BANC, 	@CSNU_DOCU_BANC, 	@CSNO_BENE, 	@CSNU_FINA,
		@CSNU_CNTA_BANC, 	@CSAA_BNCO, 	@CSMM_BNCO, 	@CSNU_COMP_BANC, 	@CDFE_ABON,
		@CDFE_VENC, 	@CSDE_GLOS, 	@CSTI_SITU, 	@CNNU_DIAS_FINA, 	@CSST_LIBO,
		@CNPO_INTE, 	@CNPO_FINA, 	@CNPO_EXCE, 	@CSCO_USUA_MODI, 	@CDFE_USUA_MODI

  End
  Close CT_TCFINA_BANC_U02_1
  Deallocate CT_TCFINA_BANC_U02_1
-------------------------------------------
		SELECT @CSDE_GLOS  = ''
  Declare CT_TCFINA_BANC_U02_2 Cursor
  For
  Select  Substring( NU_DOCU_ENTI,ISNULL(LEN(NU_DOCU_ENTI),0)-4,5)
  From TDFINA_BANC
  Where CO_EMPR = @CSCO_EMPR
  And CO_BANC = @CSCO_BANC
  And CO_TIPO_FINA = @CSCO_TIPO_FINA
  And NU_COMP_FINA = @CSNU_COMP_FINA
  Order By NU_DOCU_ENTI

  Open  CT_TCFINA_BANC_U02_2
  Fetch CT_TCFINA_BANC_U02_2 Into
    @CSNU_FINA_0002
	
  While @@Fetch_Status = 0
  Begin
	If  @@Fetch_Status < 0
	Begin
		Close CT_TCFINA_BANC_U02_2
		Deallocate CT_TCFINA_BANC_U02_2
	End

	If Len(@CSDE_GLOS) <= 100
	Begin
		If Len(@CSDE_GLOS) = 0
		Begin
			Select @CSDE_GLOS = @CSNU_FINA_0002
		End
		Else
		Begin
			Select @CSDE_GLOS = @CSDE_GLOS + '/' +@CSNU_FINA_0002
		End


	End



	Fetch CT_TCFINA_BANC_U02_2 Into
		@CSNU_FINA_0002

  End
  Close CT_TCFINA_BANC_U02_2
  Deallocate CT_TCFINA_BANC_U02_2

	Update 	TCFINA_BANC
	Set DE_GLOS = @CSDE_GLOS 
	Where	CO_EMPR = @CSCO_EMPR
	And	CO_BANC = @CSCO_BANC
	And	CO_TIPO_FINA = @CSCO_TIPO_FINA
	And	NU_COMP_FINA = @CSNU_COMP_FINA


End
/*------------------------ Fin ----------------------*/


GO
ALTER TABLE [dbo].[TCFINA_BANC] WITH NOCHECK ADD CONSTRAINT [CK__TCFINA_BA__ST_LI__55F4C372] CHECK NOT FOR REPLICATION (([ST_LIBO]='N' OR [ST_LIBO]='S'))
GO
ALTER TABLE [dbo].[TCFINA_BANC] ADD CONSTRAINT [PK__TCFINA_B__3DA07B0A14FBF414] PRIMARY KEY CLUSTERED  ([CO_EMPR], [CO_TIPO_FINA], [CO_BANC], [NU_COMP_FINA]) ON [PRIMARY]
GO
ALTER TABLE [dbo].[TCFINA_BANC] ADD CONSTRAINT [FK__TCFINA_BA__CO_EM__0663BBFA] FOREIGN KEY ([CO_EMPR]) REFERENCES [dbo].[TMPARA_TESO] ([CO_EMPR])
GO
ALTER TABLE [dbo].[TCFINA_BANC] ADD CONSTRAINT [FK__TCFINA_BA__CO_TI__0757E033] FOREIGN KEY ([CO_TIPO_FINA]) REFERENCES [dbo].[TTTIPO_FINA] ([CO_TIPO_FINA])
GO
